home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / DO-4.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  356 b   |  16 lines
  1. ' DO-4.BAS
  2. ' This program demonstrates a DO UNTIL loop.  Notice
  3. '   that the condition is at the bottom of the loop.
  4.  
  5. CLS
  6.  
  7. INPUT "Please enter a number between 1 and 10:  ", userNum%
  8. PRINT
  9.  
  10. DO
  11.     COLOR userNum%
  12.     PRINT "The value of userNum% is"; userNum%
  13.     userNum% = userNum% + 1   ' increment userNum% by 1
  14. LOOP UNTIL userNum% > 10
  15.  
  16.